home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / epp / pmodules / cskiptoedelim.e < prev    next >
Text File  |  1980-01-05  |  491b  |  20 lines
  1. OPT TURBO
  2.  
  3. PROC cSkipToEDelim(pos:PTR TO CHAR)
  4.   DEF c
  5.   /* Finds the next E delimiter in a string and returns its position. */
  6.   WHILE (c:=pos[])
  7.     IF c>122 THEN RETURN pos      /* "z" */
  8.     IF c<95                       /* "_" */
  9.       IF c>90 THEN RETURN pos     /* "Z" */
  10.       IF c<65                     /* "A" */
  11.         IF c>57 THEN RETURN pos   /* "9" */
  12.         IF c<48 THEN RETURN pos   /* "0" */
  13.       ENDIF
  14.     ENDIF
  15.     INC pos
  16.   ENDWHILE
  17. ENDPROC pos
  18.   /* cSkipToEDelim */
  19.  
  20.